home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Educational / AmigaWorld / InstallHD < prev    next >
Text File  |  1998-06-24  |  30KB  |  758 lines
  1. ;Polyglotte AmigaWorld-Installation
  2. ;für Installer 1.24 oder besser
  3.  
  4. (complete 0)
  5.  
  6. (set §AWlng0
  7.      (askchoice
  8.           (prompt "Please choose a language for the installation")
  9.           (help @askchoice-help)
  10.           (choices "Deutsch"
  11.                    "English"
  12.                    "Français"
  13.                    "Svenska")
  14.           (default 1)
  15.      )
  16. )
  17.  
  18. (if (= §AWlng0 0) (set #language "deutsch") )
  19. (if (= §AWlng0 1) (set #language "english") )
  20. (if (= §AWlng0 2) (set #language "français") )
  21. (if (= §AWlng0 3) (set #language "svenska") )
  22.  
  23. (set #yes "Yes")
  24. (set #no "No")
  25. (set #hallokey "Welcome registered user!")
  26. (set #askupdate "Do you already have an older version of AmigaWorld installed?")
  27. (set #askold "In which drawer is your \"AmigaWorld\" program located?")
  28. (set #askdel "Is it OK to delete some old files that are not needed anymore?")
  29. (set #askwhere (cat "Where do you want the \"AmigaWorld\" drawer to be created?\n"
  30.                     "Example:  Specify \"WORK:\" if you want the AmigaWorld program"
  31.                     " to reside in \"WORK:AmigaWorld\"."))
  32. (set #confirmDir "Is it ok to create the drawer right now and start copying files?")
  33. (set #asklha (cat "\"lha\" will be used do extract some compressed files. "
  34.                  "Is it ok to copy this program to the AmigaWorld drawer "
  35.                  "for speedup?"))
  36. (set #unpackmain "Extracting main program.")
  37. (set #copymain "Copying main program.")
  38. (set #asklng1 "Which language are you going to use most of the time?")
  39. (set #askcont (cat "The descriptions about continents are not available in "
  40.                   "that language.  Please choose another language for theses "
  41.                   "texts. "))
  42. (set #asklng2a "Which other languages beside ")
  43. (set #asklng2b " would you like to be available?")
  44. (set #copydata "Copying country and output data.")
  45. (set #unpackdata "Extracting country and output data.")
  46. (set #askdesc (cat "Would you like to install Bo Arnholm's text descriptions about "
  47.                    "history, economy, nature and people for each country?\n"))
  48. (set #unpackdesc "Extracting country descriptions.")
  49. (set #copydesc "Copying country descriptions.")
  50. (set #askflags "Would you like to install flags?")
  51. (set #unpackflags "Extracting flags.")
  52. (set #copyflags "Copying flags.")
  53. (set #askmaps "Would you like to install maps?")
  54. (set #unpackmaps "Extracting maps.")
  55. (set #copymaps "Copying maps.")
  56. (set #askdox "Which documentation(s) would you like to install?")
  57. (set #askdvi (cat "Would you like a DVI version of the documentation to be"
  58.             " installed (for users of TeX only)?"))
  59. (set #copydox (cat "You can exclude some files from being installed, "
  60.                   "if you like to:"))
  61. (set #unpackdox "Extracting documentation files.")
  62. (set #askfont (cat "\"FarawayEyes\" font was designed for displaying the special "
  63.                   "letters of West European, Slavonic, Romanian and Turkish languages. "
  64.                   "Would you like to install this font in your FONTS: drawer?"))
  65. (set #askdelete (cat "Do you agree to remove \"lha\" from "
  66.                     "the AmigaWorld drawer now?"))
  67. (set #askmagic "Which set of icons would you like to install?")
  68. (set #icons4 "4-colour (standard)")
  69. (set #icons8 "8-colour (Magic-WB)")
  70. (set @special-msg "Trouble! Panic! Desaster!  Installation aborted.")
  71. (set §defLng 1)
  72. (set §defDox 2)
  73.  
  74.  
  75. (if (= #language "deutsch")
  76.  (  (set #yes "Ja")
  77.     (set #no "Nein")
  78.     (set #hallokey "Willkommen, registrierter Benutzer!")
  79.     (set #askupdate "Haben Sie bereits eine ältere Version von AmigaWorld installiert?")
  80.     (set #askold "In welcher Schublade befindet sich Ihr AmigaWorld-Programm?")
  81.     (set #askdel "Ist es OK, wenn einige Dateien gelöscht werden, die nun nicht mehr gebracht werden?")
  82.     (set #askwhere (cat "Wo soll das Verzeichnis \"AmigaWorld\" angelegt werden?\n"
  83.                         "Beispiel:  Geben Sie \"WORK:\" an, wenn das AmigaWorld-Programm "
  84.                         "in die Schublade \"WORK:AmigaWorld\" soll."))
  85.     (set #confirmDir (cat "Einverstanden, dass das Verzeichnis jetzt erstellt "
  86.                          "und mit dem Kopieren von Dateien begonnen wird?"))
  87.     (set #asklha (cat "Zum Dekomprimieren diverser Daten wird \"lha\" benötigt. "
  88.                      "Darf dieses Programm zur Beschleunigung der Installation "
  89.                      "in das AmigaWorld-Verzeichnis kopiert werden?"))
  90.     (set #unpackmain "Das Hauptprogramm wird entpackt.")
  91.     (set #copymain "Copying main program.")
  92.     (set #asklng1 "Welche Sprache werden Sie hauptsächlich verwenden?")
  93.     (set #askcont (cat "Die Beschreibungen der Kontinente sind leider nicht in "
  94.                       "dieser Sprache verfügbar.  Bitte wählen Sie die Sprache, "
  95.                       "in der diese Texte installiert werden sollen. "))
  96.     (set #asklng2a "Welche Sprachen möchten Sie außer ")
  97.     (set #asklng2b " zur Verfügung haben?")
  98.     (set #copydata "Länderdaten und Ausgabetexte werden kopiert.")
  99.     (set #unpackdata "Länderdaten und Ausgabetexte werden entpackt.")
  100.     (set #askdesc (cat "Möchten Sie Bo Arnholm's Länderbeschreibungen zu Natur, "
  101.                        "Bevölkerung, Wirtschaft und Geschichte installieren?\n"
  102.                        "Diese Texte sind nur auf Englisch verfügbar."))
  103.     (set #unpackdesc "Die Länderbeschreibungen werden entpackt.")
  104.     (set #copydesc "Copying country descriptions.")
  105.     (set #askflags "Möchten Sie die Flaggen installieren?")
  106.     (set #unpackflags "Die Flaggen werden entpackt.")
  107.     (set #copyflags "Copying flags.")
  108.     (set #askmaps "Möchten Sie die Landkarten installieren?")
  109.     (set #unpackmaps "Die Landkarten werden entpackt.")
  110.     (set #copymaps "Copying maps.")
  111.     (set #askdox "Welche Dokumentation(en) möchten Sie installieren?")
  112.     (set #askdvi (cat "Möchten Sie die Dokumentation auch im DVI-Format installieren"
  113.                     " (nur für Benutzer von TeX sinnvoll)?"))
  114.     (set #copydox (cat "Wenn Sie möchten, können Sie einzelne Dateien "
  115.                       "von der Installation ausschließen:"))
  116.     (set #unpackdox "Dokumenationsdateien werden entpackt.")
  117.     (set #askfont (cat "Die mitgelieferte \"FarawayEyes\"-Schrift ist gut für die Darstellung "
  118.                       "der westeuropäischen, slawischen, rumänischen und türkischen "
  119.                       "Sonderzeichen geeignet. "
  120.                       "Möchten Sie diese Schrift in das Verzeichnis FONTS: kopieren?"))
  121.     (set #askdelete (cat "Sind Sie einverstanden damit, dass \"lha\" nun wieder "
  122.                         "aus dem AmigaWorld-Verzeichnis entfernt wird?"))
  123.     (set #errormsg "Die Installation muss abgebrochen werden!")
  124.     (set #askmagic "Welche Piktogramme möchten Sie installieren?")
  125.     (set #icons4 "4-farbig (Standard)")
  126.     (set #icons8 "8-farbig (Magic-WB)")
  127.     (set @special-msg "Chaos!  Desaster!  Panik!  Installation abgebrochen...")
  128.     (set §defLng 0)
  129.     (set §defDox 1)
  130. ))
  131.  
  132.  
  133. (if (= #language "français")
  134.  (  (set #yes "Oui")
  135.     (set #no "Non")
  136.     (set #hallokey "Welcome registered user!")
  137.     (set #askupdate "Do you already have an older version of AmigaWorld installed?")
  138.     (set #askold "In which drawer is your \"AmigaWorld\" program located?")
  139.     (set #askdel "Is it OK to delete some old files that are not needed anymore?")
  140.     (set #askwhere "Où voulez vous créer le tiroir \"AmigaWorld\"? ")
  141.     (set #confirmDir "D'accord pour créer le tiroir de suite et commencer l'installation?")
  142.     (set #asklha (cat "\"lha\" sera utilisé pour extraire les fichiers compressés. "
  143.                      "Etes vous d'accord pour copier ce programme dans le tiroir "
  144.                      "AmigaWorld pour accélérer ?"))
  145.     (set #unpackmain "Extraction du program.");???
  146.     (set #copymain "Copying main program.")
  147.     (set #asklng1 "Quelle langue utiliserez-vous la plupart du temps?")
  148.     (set #askcont (cat "Les descriptions de continents ne sont pas disponibles dans "
  149.                       "cette langue. Veuillez choisir une autre langue pour ces "
  150.                       "textes. "))
  151.     (set #asklng2a "Quelles autres langues autre que ")
  152.     (set #asklng2b " désirez-vous pouvoir utiliser?")
  153.     (set #copydata "Copie des données des pays et de l'interface.")
  154.     (set #unpackdata "Extraction des données des pays et de l'interface.")
  155.     (set #askdesc (cat "Would you like to install Bo Arnholm's text descriptions "
  156.                    "about nature, people, history and economy for each country?\n"
  157.                    "The language of these texts is English."))
  158.     (set #unpackdesc "Extraction des descriptions des pays.")
  159.     (set #copydesc "Copying country descriptions.")
  160.     (set #askflags "Voulez-vous installer les drapeaux?")
  161.     (set #unpackflags "Extraction des drapeaux.")
  162.     (set #copyflags "Copying flags.")
  163.     (set #askmaps "Voulez-vous installer les cartes?")
  164.     (set #unpackmaps "Extraction des cartes.")
  165.     (set #copymaps "Copying maps.")
  166.     (set #askdox "Quelle(s) documentation(s) desirez-vous installer?")
  167.     (set #askdvi (cat "Voulez-vous que soit installée une version DVI de la "
  168.                 " documentation (pour utilisateurs de TeX )?"))
  169.     (set #copydox (cat "Vous pouvez exclure quelques fichiers de l'installation, "
  170.                       "si vous voulez:"))
  171.     (set #unpackdox "Extraction des fichiers de documentation.")
  172.     (set #askfont (cat "Voulez vous copier la police \"FarawayEyes\" dans votre "
  173.                        " tiroir FONTS: ?"))
  174.     (set #askdelete (cat "Etes vous d'accord pour enlever \"lha\" du "
  175.                         "tiroir AmigaWorld maintenant?"))
  176.     (set #askmagic "Which set of icons would you like to install?")
  177.     (set #icons4 "4-colour (standard)")
  178.     (set #icons8 "8-colour (Magic-WB)")
  179.     (set @special-msg "Au secours! Grosse Panique!  Installation stoppée.")
  180.     (set §defLng 2)
  181.     (set §defDox 4)
  182. ) )
  183.  
  184. (if (= #language "svenska")
  185.  (  (set #yes "Ja")
  186.     (set #no "Nej")
  187.     (set #hallokey "Välkommen registrerade användare!")
  188.     (set #tellkey "Din nyckelfil finns nu i \"s:\" katalogen!")
  189.     (set #askupdate "Har du en äldre version av AmigaWorld installerad?")
  190.     (set #askold "I vilken katalog har du \"AmigaWorld\" programmet?")
  191.     (set #askdel "Är det OK att ta bort några filer som inte behövs längre?")
  192.     (set #askwhere "Var vill du att \"AmigaWorld\" katalogen skall tillverkas?")
  193.     (set #confirmDir "Är det okey att tillverka katalogen nu och börja kopiera filer?")
  194.     (set #asklha (cat "Programmet \"lha\" används för att packa upp en del filer. "
  195.                      "Är det okey att kopiera det programmet till AmigaWorld-katalogen "
  196.                      "för att snabba upp installationen?"))
  197.     (set #unpackmain "Packar upp huvudprogrammet.")
  198.     (set #copymain "Kopierar huvudprogrammet.")
  199.     (set #asklng1 "Vilket språk vill ni normalt använda?")
  200.     (set #askcont (cat "Beskrivningen om kontinenter är tyvärr ej tillgängligt "
  201.                       "med det språket. Var vänlig välj ett annat språk, "
  202.                       "för dessa texter. "))
  203.     (set #asklng2a "Vilka andra språk utöver ")
  204.     (set #asklng2b " vill ni också ha tillgängliga?")
  205.     (set #copydata "Kopierar länder och data.")
  206.     (set #unpackdata "Packar upp länder och data.")
  207.     (set #askdesc (cat "Vill du installera Bo Arnholm's texter "
  208.                    "om natur, befolkning, historia och ekonomi för alla länderna?\n"
  209.                    "Dessa finns ännu så länge endast på engelska."))
  210.     (set #unpackdesc "Installerar beskrivning för länder.")
  211.     (set #copydesc "Kopierar texterna.")
  212.     (set #askflags "Vill ni installera flaggor?")
  213.     (set #unpackflags "Installerar flaggor.")
  214.     (set #copyflags "Kopierar flaggor.")
  215.     (set #askmaps "Vill ni installera kartor?")
  216.     (set #unpackmaps "Installerar kartor.")
  217.     (set #copymaps "Kopierar kartor.")
  218.     (set #askdox "Vilken dokumentation vill ni installera?")
  219.     (set #askdvi (cat "Vill ni installera dokumentation i DVI-Format"
  220.                     " (endast för användare av TeX)?"))
  221.     (set #copydox (cat "Ni kan exkludera en del filer från att bli installerade "
  222.                       "om ni vill:"))
  223.     (set #unpackdox "Installerar dokumentationsfiler.")
  224.     (set #askfont (cat "\"FarawayEyes\" font är designad för att visa speciella "
  225.                       "tecken i Västeuropeiska, slaviska, rumänska och turkiska "
  226.                       "språk. "
  227.                       "Vill ni installera denna font i FONTS: katalogen?"))
  228.     (set #askdelete (cat "Delar du min uppfattning att ta bort \"lha\" ur "
  229.                         "AmigaWorld-katalogen nu?"))
  230.     (set #askmagic "Vilken uppsättning ikoner vill du installera?")
  231.     (set #icons4 "4-färg (standard)")
  232.     (set #icons8 "8-färg (Magic-WB)")
  233.     (set @special-msg "Tyvärr, lite problem! Installationen avbryten!")
  234.     (set §defLng 6)
  235.     (set §defDox 8)
  236. ))
  237.  
  238.  
  239. (if (= (exists "s:aw.key") 1)
  240.     (message #hallokey)
  241. )
  242.  
  243.  
  244. (set §update
  245.      (askbool (prompt #askupdate)
  246.               (help @askbool-help)))
  247.  
  248. (if (= §update 1) (
  249.     (set §AWdir (askdir (prompt #askold)
  250.                         (default "WORK:AmigaWorld")
  251.                         (help @askdir-help)))
  252. ))
  253.  
  254. (if (<> §update 1) (
  255.     (set §AWmother (askdir (prompt #askwhere)
  256.                            (default "WORK:")
  257.                            (help @askdir-help)))
  258.     (set §AWdir (tackon §AWmother "AmigaWorld"))
  259. ))
  260.  
  261.  
  262.  
  263. (set §iconType
  264.      (askchoice
  265.           (prompt #askmagic)
  266.           (help @askchoice-help)
  267.           (choices #icons4
  268.                    #icons8)
  269.           (default 0)
  270.      )
  271. )
  272.  
  273.  
  274. (if (<> §update 1)
  275.     (makedir §AWdir (infos) (prompt #confirmDir) (help @makedir-help) (confirm))
  276. )
  277.  
  278.  
  279. (set @default-dest §AWdir)
  280. (complete 1)
  281.  
  282. (copyfiles (source "")
  283.            (choices "AmigaWorld" "aw.coord") (infos)
  284.            (prompt #copymain)
  285.            (help @copyfiles-help)
  286.            (dest §AWdir)
  287. )
  288. (complete 3)
  289.  
  290. (copyfiles (source "selections")
  291.            (pattern "#?.awsel")
  292.            (prompt #copydata)
  293.            (help @copyfiles-help)
  294.            (dest (tackon §AWdir "selections"))
  295. )
  296.  
  297.  
  298. (if (= §iconType 1) (
  299.     (copyfiles (source "MWB-Icons/AmigaWorld.info")
  300.                (prompt #copymain)
  301.                (help @copyfiles-help)
  302.                (dest §AWdir)
  303.     )
  304.     (if (<> §update 1)
  305.        (copyfiles (source "MWB-Icons/drawer.info")
  306.                   (prompt #copymain)
  307.                   (help @copyfiles-help)
  308.                   (dest §AWmother)
  309.                   (newname "AmigaWorld.info"))
  310.     )
  311.                    )
  312. )
  313. (complete 5)
  314.  
  315.  
  316. (set §AWlng1
  317.      (askchoice
  318.           (prompt #asklng1)
  319.           (help @askchoice-help)
  320.           (choices
  321.                    "Deutsch"
  322.                    "English"
  323.                    "Français"
  324.                    "Italiano"
  325.                    "Nederlands"
  326.                    "Norsk"
  327.                    "Svenska"
  328.                    "Suomi" )
  329.           (default §defLng)
  330.      )
  331. )
  332.  
  333. (if (= §AWlng1 0) (set §name "Deutsch") )
  334. (if (= §AWlng1 1) (set §name "English") )
  335. (if (= §AWlng1 2) (set §name "Français") )
  336. (if (= §AWlng1 3) (set §name "Italiano") )
  337. (if (= §AWlng1 4) (set §name "Nederlands") )
  338. (if (= §AWlng1 5) (set §name "Norsk") )
  339. (if (= §AWlng1 6) (set §name "Svenska") )
  340. (if (= §AWlng1 7) (set §name "Suomi") )
  341.  
  342. (set §AWlng (tackon §AWdir "aw.lng"))
  343. (if (= @pretend 1) (set §AWlng "aw.lng"))
  344.  
  345. (textfile (dest §AWlng) (append "AW-Languages\n"))
  346. (textfile (dest §AWlng) (include §AWlng) (append (cat §name "\n")))
  347.  
  348.  
  349. (makedir (tackon §AWdir §name) (infos))
  350. (if (= §iconType 1)
  351.     (copyfiles (source (cat "MWB-Icons/" §name ".info"))
  352.                (dest §AWdir)
  353.     )
  354. )
  355.  
  356. (copyfiles (source §name)
  357.            (pattern "(aw.#?|#?.iff)")
  358.            (prompt #copydata)
  359.            (help @copyfiles-help)
  360.            (dest (tackon §AWdir §name))
  361. )
  362. (complete 20)
  363.  
  364.  
  365. (if (= §name "Suomi")
  366.     ((set §AWlng1cont
  367.           (askchoice
  368.                (prompt #askcont)
  369.                (help @askchoice-help)
  370.                (choices "Deutsch"
  371.                         "English"
  372.                         "Français"
  373.                         "Italiano"
  374.                         "Nederlands"
  375.                         "Norsk"
  376.                         "Svenska" )
  377.                (default 6) ))
  378.  
  379.      (set §findir (tackon §AWdir §name))
  380.  
  381.      (if (= §AWlng1cont 0) (copyfiles (source "Deutsch") (choices "aw.cont")
  382.                                      (prompt #copydata) (help @copyfiles-help)
  383.                                      (dest §findir) ) )
  384.      (if (= §AWlng1cont 1) (copyfiles (source "English") (choices "aw.cont")
  385.                                      (prompt #copydata) (help @copyfiles-help)
  386.                                      (dest §findir) ) )
  387.      (if (= §AWlng1cont 2) (copyfiles (source "Français") (choices "aw.cont")
  388.                                      (prompt #copydata) (help @copyfiles-help)
  389.                                      (dest §findir) ) )
  390.      (if (= §AWlng1cont 3) (copyfiles (source "Italiano") (choices "aw.cont")
  391.                                      (prompt #copydata) (help @copyfiles-help)
  392.                                      (dest §findir) ) )
  393.      (if (= §AWlng1cont 4) (copyfiles (source "Nederlands") (choices "aw.cont")
  394.                                      (prompt #copydata) (help @copyfiles-help)
  395.                                      (dest §findir) ) )
  396.      (if (= §AWlng1cont 5) (copyfiles (source "Norsk") (choices "aw.cont")
  397.                                      (prompt #copydata) (help @copyfiles-help)
  398.                                      (dest §findir) ) )
  399.      (if (= §AWlng1cont 6) (copyfiles (source "Svenska") (choices "aw.cont")
  400.                                      (prompt #copydata) (help @copyfiles-help)
  401.                                      (dest §findir) ) )
  402.  
  403. ))
  404. (complete 25)
  405.  
  406. (set §AWlng2
  407.      (askoptions
  408.           (prompt (cat #asklng2a §name #asklng2b))
  409.           (help @askoptions-help)
  410.           (choices
  411.                    "Deutsch"
  412.                    "English"
  413.                    "Français"
  414.                    "Italiano"
  415.                    "Nederlands"
  416.                    "Norsk"
  417.                    "Svenska"
  418.                    "Suomi" )
  419.           (default 0)
  420.      )
  421. )
  422.  
  423. (if (AND (IN §Awlng2 0) (NOT (= §AWlng1 0)))
  424.      ((set §subdir (tackon §AWdir "Deutsch"))
  425.       (makedir §subdir (infos))
  426.       (if (= §iconType 1)
  427.           (copyfiles (source "MWB-Icons/Deutsch.info")
  428.                      (dest §AWdir)))
  429.       (copyfiles (source "Deutsch") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  430.                  (help @copyfiles-help) (dest §subdir))
  431.       (textfile (dest §AWlng) (include §AWlng) (append "Deutsch\n")))
  432. )
  433.  
  434. (if (AND (IN §AWlng2 1) (NOT (= §AWlng1 1)))
  435.      ((set §subdir (tackon §AWdir "English"))
  436.       (makedir §subdir (infos))
  437.       (if (= §iconType 1)
  438.           (copyfiles (source "MWB-Icons/English.info")
  439.                      (dest §AWdir)))
  440.       (copyfiles (source "English") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  441.                  (help @copyfiles-help) (dest §subdir))
  442.       (textfile (dest §AWlng) (include §AWlng) (append "English\n")))
  443. )
  444.  
  445. (if (AND (IN §AWlng2 2) (NOT (= §AWlng1 2)))
  446.      ((set §subdir (tackon §AWdir "Français"))
  447.       (makedir §subdir (infos))
  448.       (if (= §iconType 1)
  449.           (copyfiles (source "MWB-Icons/Français.info")
  450.                      (dest §AWdir)))
  451.       (copyfiles (source "Français") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  452.                  (help @copyfiles-help) (dest §subdir))
  453.       (textfile (dest §AWlng) (include §AWlng) (append "Français\n")))
  454. )
  455.  
  456. (if (AND (IN §AWlng2 3) (NOT (= §AWlng1 3)))
  457.      ((set §subdir (tackon §AWdir "Italiano"))
  458.       (makedir §subdir (infos))
  459.       (if (= §iconType 1)
  460.           (copyfiles (source "MWB-Icons/Italiano.info")
  461.                      (dest §AWdir)))
  462.       (copyfiles (source "Italiano") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  463.                  (help @copyfiles-help) (dest §subdir))
  464.       (textfile (dest §AWlng) (include §AWlng) (append "Italiano\n")))
  465. )
  466.  
  467. (if (AND (IN §AWlng2 4) (NOT (= §AWlng1 4)))
  468.      ((set §subdir (tackon §AWdir "Nederlands"))
  469.       (makedir §subdir (infos))
  470.       (if (= §iconType 1)
  471.           (copyfiles (source "MWB-Icons/Nederlands.info")
  472.                      (dest §AWdir)))
  473.       (copyfiles (source "Nederlands") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  474.                  (help @copyfiles-help) (dest §subdir))
  475.       (textfile (dest §AWlng) (include §AWlng) (append "Nederlands\n")))
  476. )
  477.  
  478. (if (AND (IN §AWlng2 5) (NOT (= §AWlng1 5)))
  479.      ((set §subdir (tackon §AWdir "Norsk"))
  480.       (makedir §subdir (infos))
  481.       (if (= §iconType 1)
  482.           (copyfiles (source "MWB-Icons/Norsk.info")
  483.                      (dest §AWdir)))
  484.       (copyfiles (source "Norsk") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  485.                  (help @copyfiles-help) (dest §subdir))
  486.       (textfile (dest §AWlng) (include §AWlng) (append "Norsk\n")))
  487. )
  488.  
  489. (if (AND (IN §AWlng2 6) (NOT (= §AWlng1 6)))
  490.      ((set §subdir (tackon §AWdir "Svenska"))
  491.       (makedir §subdir (infos))
  492.       (if (= §iconType 1)
  493.           (copyfiles (source "MWB-Icons/Svenska.info")
  494.                      (dest §AWdir)))
  495.       (copyfiles (source "Svenska") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  496.                  (help @copyfiles-help) (dest §subdir))
  497.       (textfile (dest §AWlng) (include §AWlng) (append "Svenska\n")))
  498. )
  499.  
  500. (if (AND (IN §AWlng2 7) (NOT (= §AWlng1 7)))
  501.      ((set §subdir (tackon §AWdir "Suomi"))
  502.       (makedir §subdir (infos))
  503.       (if (= §iconType 1)
  504.           (copyfiles (source "MWB-Icons/Suomi.info")
  505.                      (dest §AWdir)))
  506.       (copyfiles (source "Suomi") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  507.                  (help @copyfiles-help) (dest §subdir))
  508.       (textfile (dest §AWlng) (include §AWlng) (append "Suomi\n")))
  509. )
  510.  
  511. (textfile (dest §AWlng) (include §AWlng) (append "#\n"))
  512. (complete 50)
  513.  
  514.  
  515. (set §doFlags 1)
  516. (if (> @user-level 1)
  517.     (set §doFlags (askbool (prompt #askflags)
  518.                            (help @askbool-help)
  519.                            (default 1)))
  520. )
  521.  
  522. (if (= §doFlags 1)
  523.    ((set §subdir (tackon §AWdir "flags"))
  524.     (makedir §subdir)
  525.     (copyfiles (source "flags") (pattern "???") (prompt #copyflags)
  526.                (help @copyfiles-help) (dest §subdir))
  527. ))
  528. (complete 60)
  529.  
  530. (set §doMaps 1)
  531. (if (> @user-level 1)
  532.     (set §doMaps (askbool (prompt #askmaps)
  533.                           (help @askbool-help)
  534.                           (default 1)))
  535. )
  536.  
  537. (if (= §doMaps 1)
  538.    ((set §subdir (tackon §AWdir "maps"))
  539.     (makedir §subdir)
  540.     (copyfiles (source "maps") (pattern "?.iff") (prompt #copymaps)
  541.                (help @copyfiles-help) (dest §subdir))
  542. ))
  543. (complete 67)
  544.  
  545.  
  546. (if (askbool (prompt #askdesc)
  547.              (help @askbool-help)
  548.              (default 1))
  549.    ((set §subdir (tackon §AWdir "text"))
  550.     (makedir §subdir)
  551.     (copyfiles (source "text") (pattern "???") (prompt #copydesc)
  552.                (help @copyfiles-help) (dest §subdir))
  553. ))
  554. (complete 80)
  555.  
  556.  
  557. (set §AWdoc
  558.      (askoptions
  559.           (prompt #askdox)
  560.           (help @askchoice-help)
  561.           (choices "Deutsch (v 5.19)"
  562.                    "English (v 5.19)"
  563.                    "Français (v 5.10)"
  564.                    "Svenska (v 5.16)")
  565.           (default §defDox)
  566.      )
  567. )
  568.  
  569. (set dvi "false")
  570. (if (OR (IN §AWdoc 0) (IN §AWdoc 1))
  571.     (if (askbool (prompt #askdvi)
  572.                  (help @askbool-help)
  573.                  (default 0))
  574.         (set dvi "true"))
  575. )
  576.  
  577.  
  578. (if (IN §AWdoc 0)
  579.    ((set §docdir (tackon §AWdir "Deutsch"))
  580.     (makedir §docdir (infos))
  581.     (if (= §iconType 1)
  582.         (copyfiles (source "MWB-Icons/Deutsch.info")
  583.                    (dest §AWdir)))
  584.     (copyfiles (source "Deutsch")
  585.                (prompt #copydox)
  586.                (help @copyfiles-help)
  587.                (confirm)
  588.                (choices "Dokumentation"
  589.                         "Dokumentation.asc"
  590.                         "BriefVonBo.asc"
  591.                         "Entwicklung"
  592.                         "Registration.asc") (infos)
  593.                (dest §docdir))
  594.      (if (= §iconType 1)
  595.         ((copyfiles (source "MWB-Icons/.asc.info")
  596.                     (dest §docdir)
  597.                     (newname "Dokumentation.asc.info"))
  598.          (copyfiles (source "MWB-Icons/.asc.info")
  599.                     (dest §docdir)
  600.                     (newname "BriefVonBo.asc.info"))
  601.          (copyfiles (source "MWB-Icons/.asc.info")
  602.                     (dest §docdir)
  603.                     (newname "Entwicklung.info"))
  604.          (copyfiles (source "MWB-Icons/.asc.info")
  605.                     (dest §docdir)
  606.                     (newname "Registration.asc.info"))
  607.          (copyfiles (source "MWB-Icons/.guide.info")
  608.                     (dest §docdir)
  609.                     (newname "Dokumentation.info"))))
  610.      (if (= dvi "true")
  611.         ((copyfiles (source "Deutsch/Dokumentation.dvi")
  612.                     (infos)
  613.                     (prompt #copydox)
  614.                     (help @copyfiles-help)
  615.                     (confirm)
  616.                     (dest §docdir))
  617.          (if (= §iconType 1)
  618.              (copyfiles (source "MWB-Icons/.dvi.info")
  619.                         (dest §docdir)
  620.                         (newname "Dokumentation.dvi.info")))))
  621.      )
  622. )
  623. (complete 85)
  624.  
  625. (if (IN §AWdoc 1)
  626.    ((set §docdir (tackon §AWdir "English"))
  627.     (makedir §docdir (infos))
  628.     (if (= §iconType 1)
  629.         (copyfiles (source "MWB-Icons/English.info")
  630.                    (dest §AWdir)))
  631.     (copyfiles (source "English")
  632.               (prompt #copydox)
  633.               (help @copyfiles-help)
  634.               (confirm)
  635.               (choices "Documentation"
  636.                        "Documentation.asc"
  637.                        "LetterFromBo.asc"
  638.                        "History"
  639.                        "Registration.asc") (infos)
  640.                (dest §docdir))
  641.      (if (= §iconType 1)
  642.         ((copyfiles (source "MWB-Icons/.asc.info")
  643.                     (dest §docdir)
  644.                     (newname "Documentation.asc.info"))
  645.          (copyfiles (source "MWB-Icons/.asc.info")
  646.                     (dest §docdir)
  647.                     (newname "LetterFromBo.asc.info"))
  648.          (copyfiles (source "MWB-Icons/.asc.info")
  649.                     (dest §docdir)
  650.                     (newname "History.info"))
  651.          (copyfiles (source "MWB-Icons/.asc.info")
  652.                     (dest §docdir)
  653.                     (newname "Registration.asc.info"))
  654.          (copyfiles (source "MWB-Icons/.guide.info")
  655.                     (dest §docdir)
  656.                     (newname "Documentation.info"))))
  657.      (if (= dvi "true")
  658.         ((copyfiles (source "English/Documentation.dvi")
  659.                     (infos)
  660.                     (prompt #copydox)
  661.                     (help @copyfiles-help)
  662.                     (confirm)
  663.                     (dest §docdir))
  664.          (if (= §iconType 1)
  665.              (copyfiles (source "MWB-Icons/.dvi.info")
  666.                         (dest §docdir)
  667.                         (newname "Documentation.dvi.info")))))
  668.      )
  669. )
  670. (complete 90)
  671.  
  672. (if (IN §AWdoc 2)
  673.    ((set §docdir (tackon §AWdir "Français"))
  674.     (makedir §docdir (infos))
  675.     (if (= §iconType 1)
  676.         (copyfiles (source "MWB-Icons/Français.info")
  677.                    (dest §AWdir)))
  678.     (copyfiles (source "Français")
  679.                (choices "Documentation"
  680.                         "Documentation.asc"
  681.                         "Historique"
  682.                         "Limitations.asc") (infos)
  683.                (prompt #copydox)
  684.                (help @copyfiles-help)
  685.                (confirm)
  686.                (dest §docdir))
  687.     (if (= §iconType 1)
  688.         ((copyfiles (source "MWB-Icons/.asc.info")
  689.                     (dest §docdir)
  690.                     (newname "Documentation.asc.info"))
  691.          (copyfiles (source "MWB-Icons/.asc.info")
  692.                     (dest §docdir)
  693.                     (newname "Historique.info"))
  694.          (copyfiles (source "MWB-Icons/.asc.info")
  695.                     (dest §docdir)
  696.                     (newname "Limitations.asc.info"))
  697.          (copyfiles (source "MWB-Icons/.guide.info")
  698.                     (dest §docdir)
  699.                     (newname "Documentation.info"))))
  700.     )
  701. )
  702. (complete 93)
  703.  
  704. (if (IN §AWdoc 3)
  705.    ((set §docdir (tackon §AWdir "Svenska"))
  706.     (makedir §docdir (infos))
  707.     (if (= §iconType 1)
  708.         (copyfiles (source "MWB-Icons/Svenska.info")
  709.                    (dest §AWdir)))
  710.     (copyfiles (source "Svenska")
  711.                (choices "Dokumentation.asc"
  712.                         "Historia"
  713.                         "Registration.asc"
  714.                         "BrevFrånBo.asc") (infos)
  715.                (prompt #copydox)
  716.                (help @copyfiles-help)
  717.                (confirm)
  718.                (dest §docdir))
  719.      (if (= §iconType 1)
  720.         ((copyfiles (source "MWB-Icons/.asc.info")
  721.                     (dest §docdir)
  722.                     (newname "Dokumentation.asc.info"))
  723.          (copyfiles (source "MWB-Icons/.asc.info")
  724.                     (dest §docdir)
  725.                     (newname "BrevFrånBo.asc.info"))
  726.          (copyfiles (source "MWB-Icons/.asc.info")
  727.                     (dest §docdir)
  728.                     (newname "Historia.info"))
  729.          (copyfiles (source "MWB-Icons/.asc.info")
  730.                     (dest §docdir)
  731.                     (newname "Registration.asc.info"))))
  732.     )
  733. )
  734. (complete 95)
  735.  
  736. (if (askbool (prompt #askfont)
  737.              (help @askbool-help)
  738.              (default 1))
  739.      (copyfiles (source "Fonts") (all)
  740.                 (dest "Fonts:"))
  741. )
  742. (complete 99)
  743.  
  744.  
  745. (if (= §iconType 1) (
  746.     (if (= (exists (tackon §AWdir "Suomi") (noreq)) 2)
  747.         (copyfiles (source "MWB-Icons/.iff.info")
  748.                    (dest (tackon §AWdir "Suomi"))
  749.                    (newname "Mika.iff.info")))
  750.     (if (= (exists (tackon §AWdir "Italiano") (noreq)) 2)
  751.         (copyfiles (source "MWB-Icons/.iff.info")
  752.                    (dest (tackon §AWdir "Italiano"))
  753.                    (newname "Guido.iff.info")))
  754.                    )
  755. )
  756.  
  757. (complete 100)
  758.